home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9301.ZIP;1 / RUBEL.ZIP / HP_DEV.PRG next >
Encoding:
Text File  |  1992-12-10  |  1.7 KB  |  55 lines
  1. PROCEDURE hp_dev
  2.  
  3. ***  Here is where we develop our help screens
  4.  
  5. IF .not. found()              &&  no help in file
  6.   m_choice = yesno('No help is currently available '+;
  7.                    'for the current program situation.  '+;
  8.                    'Do you want to create a new help '+;
  9.                    'screen?')
  10.  
  11.   IF m_choice                 &&  we want to create help
  12.  
  13. ***  if there is an active menu or popup and there is no
  14. ***  READ going on, find out if we are going to have help
  15. ***  on individual menu item.
  16.  
  17.     IF .not. m_ch .and. isblank(v_name) .and. ;
  18.        (.not. isblank(m_name) .or. .not. isblank(po_name))
  19.       m_ch = yesno('You are creating the first help '+;
  20.                    'screen for a menu or a popup.  '+;
  21.                    'You can have either a single help '+;
  22.                    'screen for the entire menu or '+;
  23.                    'separate help screens for each '+;
  24.                    'menu option.  Do you want help '+;
  25.                    'on each menu choice?')
  26.     ENDIF
  27.  
  28. ***  now load the results into the new help record.
  29.  
  30.     APPEND BLANK              &&  add a new help record
  31.  
  32.     REPLACE proc_name WITH pr_name, ;
  33.             vari_name WITH v_name, ;
  34.             menu_name WITH m_name, ;
  35.             popup_name WITH po_name, ;
  36.             menu_value WITH menu_val, ;
  37.             menu_ch WITH m_ch, ;
  38.             ul_row WITH 0, ;
  39.             ul_col WITH 0, ;
  40.             lr_row WITH 24, ;
  41.             lr_col WITH 79
  42.  
  43.     DO hp_dev1                &&  go to help editing
  44.   ENDIF
  45.  
  46. ELSE                          &&  the help record is there
  47.   DO hp_dev1
  48. ENDIF
  49.  
  50. RETURN
  51.  
  52. ********  eop HP_DEV
  53.  
  54.  
  55.